home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 94 / 64er_Magazin_Sonderheft_94_19xx_Markt__Technik_de_Side_A.d64 / turtle-demo 7 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  505 b   |  25 lines
  1. 1 rem turtle-demo: 'binaerbaum'
  2. 2 rem n. heusler 11.91
  3. 3 :
  4. 10 sys49152
  5. 40 input"baumgroesse ........   48[157][157][157][157]";le
  6. 50 input"kruemmung ..........   27[157][157][157][157]";ae
  7. 60 input"rekursionstiefe ....   8[157][157][157]";ew
  8. 70 input"dekrement ..........   1.27[157][157][157][157][157][157]";dm
  9. 80 !graphics:!init:!pen0:!back99:gosub100:!finish
  10. 100 ifle<ewthenreturn
  11. 110 !turnlae:!pen1:!walkle
  12. 120 !pushle
  13. 130 le=le/dm
  14. 140 gosub100
  15. 150 !pullle
  16. 160 !pen0:!backle
  17. 170 !turnrae*2:!pen1:!walkle
  18. 180 !pushle
  19. 190 le=le/dm
  20. 200 gosub100
  21. 210 !pullle
  22. 220 !pen0:!backle
  23. 230 !turnlae
  24. 240 return
  25.